home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / workbench erweiterungen / popshell / install-popshell < prev    next >
Text File  |  1996-04-07  |  11KB  |  471 lines
  1. ; $VER: Install-PopShell 1.0 (14.01.95)
  2. ; Script to install PopShell
  3. ; ©1993-95 Tobias Abt 
  4.  
  5. (set #PopName
  6. (cat "PopShell"
  7. ))
  8.  
  9. ;=============================================================================
  10. ; English strings
  11.  
  12. (if (= @language "english")
  13. (
  14.  
  15. (set #Bad-Kick
  16. (cat "\n\nYou need Kick/WB 2.04 or better for PopShell!"
  17. ))
  18.  
  19. (set #Message
  20. (cat "\n\nWelcome to PopShell!\n"
  21.      "You are about to install a very powerful Utility for your convenience using the Amiga."
  22. ))
  23.  
  24. (set #Path-Manually
  25. (cat "Select path manually"
  26. ))
  27.  
  28. (set #Yes
  29. (cat "Yes"
  30. ))
  31.  
  32. (set #No
  33. (cat "No"
  34. ))
  35.  
  36. ;PopShell
  37. (set #Ask-PopShell
  38. (cat "\n\nWhere do you want PopShell to be installed?"
  39. ))
  40.  
  41. (set #Help-PopShell
  42. (cat "Usually it is most reasonable to install PopShell in the"
  43.      "WBStartup drawer of your system partition"
  44. ))
  45.  
  46. (set #AskPath-PopShell
  47. (cat "Select path for PopShell, please"
  48. ))
  49.  
  50. (set #Ask-PopShellCfg
  51. (cat "\n\nWhere do you want PopShell to put its config file?"
  52. ))
  53.  
  54. (set #Help-PopShellCfg
  55. (cat "Any drawer which can be reached when PopShell is started."
  56.      "Common paths are SYS:WBStartup, S: or SYS:Storage"
  57. ))
  58.  
  59. (set #With-PopShell
  60. (cat "With PopShell"
  61. ))
  62.  
  63. (set #Ask-PopShellCfgPath
  64. (cat "Select a path for PopShell's config file, please"
  65. ))
  66.  
  67. (set #Ask-ReplaceCfg
  68. (cat "\n\nATTENTION!!!\n\nDo you want to replace the old PopShell.Config?"
  69. ))
  70.  
  71. (set #Help-ReplaceCfg
  72. (cat "\n\nATTENTION! If you choose \"Yes\", the old file will be renamed and a new one created!"
  73. ))
  74.  
  75. (set #Rename-PopShellCfg
  76. (cat "Renaming old PopShell.Config"
  77. ))
  78.  
  79. ;icons
  80. (set #Ask-NiceIcons
  81. (cat "\n\nDo you want the nice 16 color icon for PopShell?"
  82. ))
  83.  
  84. (set #Help-NiceIcons
  85. (cat "Do you want to get the icon for Workbenches with 16 colors and more or do you want the simple one with four colors?"
  86. ))
  87.  
  88. (set #Ask-ReplaceIcon
  89. (cat "\n\nDo you want to replace the existing icon?"
  90. ))
  91.  
  92. (set #Help-ReplaceIcon
  93. (cat "If you select YES, the old icon and the therein contained configuration will be replaced by an icon with default configuration."
  94. ))
  95.  
  96. ;actions
  97. (set #Installing
  98. (cat "Installing"
  99. ))
  100.  
  101. (set #WorkOn
  102. (cat "Working on icon for"
  103. ))
  104.  
  105. (set #EmptyCfg
  106. (cat "Creating empty config file for"
  107. ))
  108.  
  109. (set #Complete
  110. (cat "\n\n\nInstallation complete"
  111. ))
  112.  
  113. ; languages
  114. (set #Ask-Languages
  115. (cat "Which languages except English should be installed?"
  116. ))
  117.  
  118. (set #Help-Languages
  119. (cat "English is the builtin language. The other language(s) are available through locale catalogs which are optionally (need locale.library)"
  120. ))
  121.  
  122. (set #Lang-German
  123. (cat "German"
  124. ))
  125.  
  126. (set #InstCat
  127. (cat "Installing catalog file: "
  128. ))
  129.  
  130. (set #Ask-PopShellCatalogs
  131. (cat "\n\nWhere do you want PopShell to put its catalog file(s)?"
  132. ))
  133.  
  134. (set #Help-PopShellCatalogs
  135. (cat "The catalogs for locale.library can be either stored in the same directory as PopShell or in 'LOCALE:'"
  136. ))
  137.  
  138. (set #Locale
  139. (cat "In 'LOCALE:'"
  140. ))
  141.  
  142. )) ; english strings
  143.  
  144. ;=============================================================================
  145. ; German strings
  146.  
  147. (if (= @language "deutsch")
  148. (
  149.  
  150. (set #Bad-Kick
  151. (cat "\n\nSie benötigen KickStart 2.04 oder höher für PopShell!"
  152. ))
  153.  
  154. (set #Message
  155. (cat "\n\nWillkommen zu PopShell! \nSie erhalten jetzt die Gelegenheit,\n"
  156.      "Ihr System um ein leistungsfähiges Programm für die komfortablere Bedienung ihres Amigas zu erweitern."
  157. ))
  158.  
  159. (set #Path-Manually
  160. (cat "Pfad manuell wählen"
  161. ))
  162.  
  163. (set #Yes
  164. (cat "Ja"
  165. ))
  166.  
  167. (set #No
  168. (cat "Nein"
  169. ))
  170.  
  171. ; PopShell
  172. (set #Ask-PopShell
  173. (cat "\n\nWo soll PopShell installiert werden?"
  174. ))
  175.  
  176. (set #Help-PopShell
  177. (cat "In der Regel ist es am sinnvollsten, PopShell in der "
  178.      "WBStartup-Schublade der Systempartition zu installieren"
  179. ))
  180.  
  181. (set #AskPath-PopShell
  182. (cat "Wählen Sie bitte das Zielverzeichnis für PopShell"
  183. ))
  184.  
  185. (set #Ask-PopShellCfg
  186. (cat "\n\nWo soll PopShell seine Konfigurationsdaten ablegen?"
  187. ))
  188.  
  189. (set #Help-PopShellCfg
  190. (cat "Irgeindeine Schublade, die beim Start von PopShell erreichbar"
  191.      "ist. Gängige Schubladen wären zum Beispiel SYS:WBStartup, S: oder SYS:Storage"
  192. ))
  193.  
  194. (set #With-PopShell
  195. (cat "Zu PopShell"
  196. ))
  197.  
  198. (set #Ask-PopShellCfgPath
  199. (cat "Wählen Sie bitte das Zielverzeichnis für PopShell's Konfigurationsdatei"
  200. ))
  201.  
  202. (set #Ask-ReplaceCfg
  203. (cat "\n\nACHTUNG!!!\n\nSoll die alte PopShell-Konfigurationsdatei ersetzt werden?"
  204. ))
  205.  
  206. (set #Help-ReplaceCfg
  207. (cat "VORSICHT! Wenn Sie \"Ja\" anwählen, wird Ihre bestehende Datei umbenannt und eine neue Datei erstellt!"
  208. ))
  209.  
  210. (set #Rename-PopShellCfg
  211. (cat "Benenne alte Konfigurationsdatei um"
  212. ))
  213.  
  214. ;icons
  215. (set #Ask-NiceIcons
  216. (cat "\n\nWollen Sie das nette 16-farbige Icon zu PopShell?"
  217. ))
  218.  
  219. (set #Help-NiceIcons
  220. (cat "Wenn Sie die Workbench mit mindestens 16 Farben und der Amberpalette"
  221.      "und gegebenenfalls PatchPens benutzen, empfehle ich Ihnen, mit 'JA' zu antworten..."
  222. ))
  223.  
  224. (set #Ask-ReplaceIcon
  225. (cat "\n\nWollen Sie das bereits existierende Icon ersetzen?"
  226. ))
  227.  
  228. (set #Help-ReplaceIcon
  229. (cat "Wenn Sie JA wählen, wird das alte Icon und die darin enthaltenen Konfigurationsdaten durch ein neues Icon ersetzt!"
  230. ))
  231.  
  232. ;actions
  233. (set #Installing
  234. (cat "Installiere"
  235. ))
  236.  
  237. (set #WorkOn
  238. (cat "Bearbeite Icon von"
  239. ))
  240.  
  241. (set #EmptyCfg
  242. (cat "Erstelle eine leere Konfigurationsdatei für"
  243. ))
  244.  
  245. (set #Complete
  246. (cat "\n\n\nInstallation beendet"
  247. ))
  248.  
  249. ; languages
  250. (set #Ask-Languages
  251. (cat "Welche Sprachen außer Englisch sollen noch installiert werden?"
  252. ))
  253.  
  254. (set #Help-Languages
  255. (cat "Intern ist PopShell mit englischen Texten ausgestattet. Die andere(n) Sprache(n) sind über zusätzliche Dateien realisiert (benötigt locale.library)"
  256. ))
  257.  
  258. (set #Lang-German
  259. (cat "Deutsch"
  260. ))
  261.  
  262. (set #InstCat
  263. (cat "Installiere Catalogdatei: "
  264. ))
  265.  
  266. (set #Ask-PopShellCatalogs
  267. (cat "Wählen Sie bitte das Zielverzeichnis für PopShell's Sprachdatei(en)"
  268. ))
  269.  
  270. (set #Help-PopShellCatalogs
  271. (cat "Es ist möglich, diese Dateien entweder im gleichen Verzeichnis wie PopShell oder in 'LOCALE:' abzulegen."
  272. ))
  273.  
  274. (set #Locale
  275. (cat "'LOCALE:'"
  276. ))
  277.  
  278. )) ; german strings
  279.  
  280.  
  281.  
  282. ;=============================================================================
  283. ;               install ...
  284. ;=============================================================================
  285.  
  286. (set xsl FALSE)
  287.  
  288. (complete 0)
  289.  
  290.  
  291. (set olduserlevel @user-level)
  292.  
  293. (if (< (getversion) (* 37 65536))
  294.     (abort #Bad-Kick)
  295. )
  296.  
  297. (user 2)
  298.  
  299. (message #Message)
  300.  
  301. (user olduserlevel)
  302.  
  303.  
  304. (set PopShellPath "SYS:WBStartup")
  305. (if (NOT (askbool (prompt #Ask-PopShell)
  306.                   (help #Help-PopShell)
  307.                   (choices "SYS:WBStartup" #Path-Manually)
  308.          )
  309.    )
  310.    (set PopShellPath 
  311.       (askdir (prompt #AskPath-PopShell)
  312.               (help #Help-PopShell)
  313.               (default "SYS:WBStartup")
  314.       )
  315.    )
  316. )
  317. (complete 10)
  318. (set PopShellCfgPath PopShellPath)
  319. (if (NOT (askbool (prompt #Ask-PopShellCfg)
  320.                   (help #Help-PopShellCfg)
  321.                   (choices #With-PopShell #Path-Manually)
  322.          )
  323.    )
  324.    (set PopShellCfgPath 
  325.       (askdir (prompt #Ask-PopShellCfgPath)
  326.              (help #Help-PopShellCfg)
  327.               (default PopShellPath)
  328.       )
  329.    )
  330. )
  331. (set PopCfg 1)
  332. (user 2)
  333. (complete 20)
  334. (if (= (exists (tackon PopShellCfgPath "PopShell.config")) 1)
  335.    (
  336.       (set PopCfg (askbool (prompt #Ask-ReplaceCfg)
  337.                                 (help #Help-ReplaceCfg)
  338.                                 (choices #Yes #No)
  339.                   )
  340.       )
  341.       (set PopCfgRename PopCfg)
  342.    )
  343. )
  344. (user olduserlevel)
  345. (set languages 0)    ; no languages as default
  346. (complete 30)
  347.  
  348. (if (> (getversion "libs:locale.library") (* 38 65536))
  349.    (
  350.       (set languages (askoptions (prompt  #Ask-Languages)
  351.                                  (help    #Help-Languages)
  352.                                  (choices #Lang-German)
  353.                                  (default languages)
  354.                      )
  355.       )
  356.       (set LocalePath PopShellPath)
  357.       (if (NOT (askbool (prompt #Ask-PopShellCatalogs)
  358.                         (help #Help-PopShellCatalogs)
  359.                         (choices #With-PopShell #Locale)
  360.                )
  361.          )
  362.          (set PopShellCfgPath "LOCALE:")
  363.       )
  364.    )
  365. )
  366. (complete 40)
  367.  
  368. (set niceicons
  369.     (askbool (prompt #Ask-NiceIcons)
  370.              (help #Help-NiceIcons)
  371.              (choices #Yes #No)
  372.              (default 0)
  373.     )
  374. )
  375. (complete 50)
  376.  
  377.  
  378. (copyfiles
  379.    (prompt #Installing " PopShell")
  380.    (source #PopName)
  381.    (dest PopShellPath)
  382.    (files)
  383.    (optional force askuser)
  384. )
  385. (complete 60)
  386. (set copyicon 1)
  387. (if (exists (tackon PopShellPath "PopShell.info") (noreq))
  388.     (set copyicon
  389.         (askbool (prompt #Ask-ReplaceIcon)
  390.                  (help #Help-ReplaceIcon)
  391.                  (choices #Yes #No)
  392.         )
  393.     )
  394. )
  395. (if copyicon
  396.    (
  397.       (copyfiles
  398.          (if niceicons
  399.              (source "icons/PopShell16.info")
  400.              (source "icons/PopShell4.info")
  401.          )
  402.          (newname "PopShell.info")
  403.          (dest PopShellPath)
  404.          (files)
  405.       )
  406.       (tooltype
  407.          (prompt #WorkOn " PopShell")
  408.          (dest (tackon PopShellPath "PopShell"))
  409.          (settooltype "CONFIGNAME" (tackon PopShellCfgPath "PopShell.config"))
  410.          (settooltype "CX_PRIORITY" "126")
  411.          (settooltype "CX_POPKEY" "lcommand p")
  412.          (settooltype "CX_POPUP" "NO")
  413.          (settooltype "STARTPRI" "-80")
  414.          (settooltype "DONOTWAIT" "")
  415.          (noposition)
  416.          (setstack 8000)
  417.       )
  418.    )
  419. )
  420. (complete 70)
  421. (if PopCfgRename
  422.    (rename (tackon PopShellCfgPath "PopShell.Config") (tackon PopShellCfgPath "PopShell.Config.old")
  423.       (prompt #Rename-PopShellCfg)
  424.    )
  425. )
  426. (complete 80)
  427. (if PopCfg
  428.    (copyfiles
  429.       (prompt #EmptyCfg " PopShell")
  430.       (source "PopShell.Config")
  431.       (dest PopShellCfgPath)
  432.       (files)
  433.       (optional force askuser)
  434.    )
  435. )
  436. (complete 90)
  437. (if languages
  438.    (
  439.       (if (= (exists "LOCALE:catalogs/deutsch/PopShell.catalog") 1)
  440.          (delete "LOCALE:catalogs/deutsch/PopShell.catalog")
  441.       )
  442.       (if (= (exists (tackon PopShellPath "catalogs/deutsch/PopShell.catalog")) 1)
  443.          (delete (tackon PopShellPath "catalogs/deutsch/PopShell.catalog"))
  444.       )
  445.       (
  446.          (if (= (exists (tackon LocalePath "catalogs")) 0)
  447.             (makedir (tackon LocalePath "catalogs"))
  448.          )
  449.          (if (BITAND languages 1) ; deutsch
  450.             (
  451.                (if (= (exists (tackon LocalePath "catalogs/deutsch")) 0)
  452.                   (makedir (tackon LocalePath "catalogs/deutsch"))
  453.                )
  454.                (copyfiles
  455.                   (prompt #InstCat #Lang-German)
  456.                   (source "catalogs/deutsch/PopShell.catalog")
  457.                   (dest (tackon LocalePath "catalogs/deutsch"))
  458.                   (files)
  459.                   (optional force askuser)
  460.                )
  461.             )
  462.          )
  463.       )
  464.    )
  465. )
  466.  
  467. (complete 100)
  468. (user 2)
  469. (message #Complete)
  470. (exit (quiet))
  471.